home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok81 / m2 / talkdemo / txt / intuipointer.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  50 lines
  1. IMPLEMENTATION MODULE IntuiPointer;
  2. (*$ ChipCode:=TRUE *)
  3. (*$ LargeVars:=FALSE *)
  4. FROM SYSTEM    IMPORT    ADDRESS, ADR, ASSEMBLE;
  5. IMPORT IntuitionD,IntuitionL;
  6.  
  7.  
  8. PROCEDURE Normal(Win:IntuitionD.WindowPtr);
  9. BEGIN
  10.   IntuitionL.ClearPointer(Win);
  11. END Normal;
  12.  
  13. (*$ EntryExitCode:=FALSE *)
  14. PROCEDURE spImage;
  15. BEGIN
  16. ASSEMBLE(
  17.         DC.W    0,0
  18.     DC.W    %0000011000000000,%0000011000000000
  19.     DC.W    %0000111101000000,%0000111101000000
  20.     DC.W    %0011111111100000,%0011111111100000
  21.     DC.W    %0111111111100000,%0111111111100000
  22.     DC.W    %0111111111110000,%0110000111110000
  23.     DC.W    %0111111111111000,%0111101111111000
  24.     DC.W    %1111111111111000,%1111011111111000
  25.     DC.W    %0111111111111100,%0110000111111100
  26.     DC.W    %0111111111111100,%0111111100001100
  27.     DC.W    %0011111111111110,%0011111111011110
  28.     DC.W    %0111111111111100,%0111111110111100
  29.     DC.W    %0011111111111100,%0011111100001100
  30.     DC.W    %0001111111111000,%0001111111111000
  31.     DC.W    %0000011111110000,%0000011111110000
  32.     DC.W    %0000000111000000,%0000000111000000
  33.     DC.W    %0000011100000000,%0000011100000000
  34.     DC.W    %0000111111000000,%0000111111000000
  35.     DC.W    %0000011010000000,%0000011010000000
  36.     DC.W    %0000000000000000,%0000000000000000
  37.     DC.W    %0000000011000000,%0000000011000000
  38.     DC.W    %0000000011100000,%0000000011100000
  39.     DC.W    %0000000001000000,%0000000001000000
  40.     DC.W    0,0
  41.   END);
  42. END spImage;
  43.  
  44. PROCEDURE Busy(Win:IntuitionD.WindowPtr);
  45. BEGIN
  46.   IntuitionL.SetPointer(Win,ADR(spImage),22,16,-7,-7);
  47. END Busy;
  48.  
  49. END IntuiPointer.mod
  50.